VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private m_Denomination As String
Private m_Suit As String

Public Property Get Suit() As String
  Suit = m_Suit
End Property

Public Property Let Suit(ByVal vSuit As String)
  m_Suit = vSuit
End Property

Public Property Get Denomination() As String
  Denomination = m_Denomination
End Property

Public Property Let Denomination(ByVal vDenom As String)
  m_Denomination = vDenom
End Property

Public Function IdentifyCard() As String
  Dim Denom As String
  Select Case Val(m_Denomination)
    Case 1
      Denom = "Ace"
    Case Is <= 10
      Denom = m_Denomination
    Case 11
      Denom = "Jack"
    Case 12
      Denom = "Queen"
    Case 13
      Denom = "King"
  End Select
  IdentifyCard = Denom & " of " & m_Suit
End Function

